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PREFACE 

Th»s report was prepared under Contract N:i$9- 1 4520 , "Development of the 
Engineering Design Intergration System", Tfie study was preformed during a 
period from January 1975 through December 1976. The study was funded by the 
National Aeronautics and Space Administration, Lyndon 6. Johnson Space 
Center, Houston Te'-<es. The prime contractor for the study was Sigma 
Corporation and the study was monitored by Mr. Robert Abel of the NASA 
Engineering Analysis Division, 
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InTHOD uCT ION 

SUTIL is a package of f Ok TR nN callable subroutines which allow efficient 
communication of data between users and programs. 

Calls to SUTIL routine? which output t«xt to the screen will 
unconditional ly load monitor overlay buffer l with the LhBEL segment <if 
not allreadv loaded) . 

i e. Calls into the SUTIL package must not be concurrent with PORTR*N use 
of monitor overlay buffer 1. 

Text and values output to the screen by SUTIL routines IUET, P'iET, OLET, 
SCET, and /ESNO cannot be printed on the PPL, as PPL driver uses monitor 
overlay buffer 1, 

Proper utilization of the SUTIL pact age will signif icantly reduce program 
core requirements and expedite program deve 1 opement . 
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ICET 

ICET is a FORTRAN callable routine designwd to display a Mtuags for the 
operator on the muT *irt*n, 

Routine will display the mini mum and Maximum bounds and current value for 
an integer variable, accept the current value with 3 C/P, or a new typein 
nalue from the operator, 

If an imafe is being displaced prior to calling IGET a sub image link is 
formed to enable the image to remain on the screen with message, bounds and 
current value display, this link is removed on return from subroutine. 

If operator types in a new value, it is compared to the upper and lower 
bound If within bounds, new value is returned to the calling program. If 
out of bounds, variable is 3et to the value of the crossed boundary, the 
TTY bell is rung, and the following error message is displayed for the 
oper ator : 

LIMIT EXCEEDED, DEFAULT VALUE ASSUMED 
MIN»XXX, MhX»KXX> CURRENT «XXX 

Simple math mau be Included in typein, however It must be in polish string 
format , 

i,e. no < > and solution is from left to right, 

Characters which may be included in type string «•*! 

Symbol Function 

♦ Add 

- Subtract 

« Multiply 

✓ Divide 

= Sum 

X Change sign 

Other characters cause the TTY beli to ring and the following error message 
is displayed for the operator* 

ERROR * ILLEGAL CHARACTER 

i.e. 10Q/23*23-30+50 equals lot) 

100/2.3+60 equals 100 

100 + SOX ♦ 50 equals 100 <X * change sign) 

Typein followed by an sign will cause the sum to replace typein. This 

sum may be accepted with a C/R or a new VALUE typed, 
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c ailing sequence 

CALL IGET ' IVALUC^IM, MmX, "MESSAGE", IFLAG) 


APGUMEN T S 


1 I VALUE 

2 MIN 

3 MmX 

4 MESSAGE 


*5 I FLAG 


Variabla <1/0 Integer) , 

Minimum bound for I VALUE < input integer). 

Max i mum bound for IVALUE ^ input , 

hSCII string (input), 

An ASCII character string to be displayed For the 
ui«r . The MESSAGE i s small characters it lift side 
of scrim unless ASCII control chartcUri are in 
MESSAGE string, 

i.a,, 4X&000 , *YOOO , SC,6»f ,it 43 ehartdtrt will 

change MESSAGE size and position. 

< input int egar > . 

If positive, clear prior MESSAGE < 1 > before 

displaying MESSAGE, Elsa add this MESSmGE to any 
previous MESSAGE ^ S ) , 


ERROR CONDITIONS 

nil errors ar« proparly handled internally, If numbers at a out of rang* as 
input, TTY ball rings and a massage to the user will appear requesting a 
new input, 
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PiET 


PiET It a FORTRAN callable rovt ine designed to display a message for the 
operator on the mOT screen, 

Routine will display the minimum and maximum bounds and current ualue for a 
real variable, accept the current value with a 0/ R . or a new typein ualue 
from the operator, 

If an image is being displayed prior to calling RCET a subimag* link is 
forced to enable the image to remain on the screen with message bounds and 
current value display, this link is removed on return from subroutine, 

If operat or types in a new value, it is compared to the upper and lower 
bound. If within bounds, new value is returned to the calling program, If 
out of bounds, variable is set to the value of the crussed boundary, the 
TTY bell is rung, and the following error message is displayed for the 
oper ator i 

LIMIT EXi'FCDED . DEFmULT VhI.UE ASSUMED 
MIN-XXX , MAX-XXX) CURkEN f»XXX 


Simple math may be Included in typein, however it must b* in polish string 
for mat . 

i.e. no < > and solution Is from left to right 


Characters which may be included in type string are! 

Symbol Function 

♦ Add 
Subtract 

♦ Multiply 

/ Divide 

♦ Sum 

X Change sign 


Cther character's cause the TTY bell to ring an<J the following error message 
i 3 displayed for the operator! 


ERROR: ILLEOhL CHARACTER 


i.e. 

100/25 *23-50 ♦50 

equals 

100 


100/2,5+60 

equ* 1 s 

100 


100 + 50X + 50 

equa 1 s 

100 

T ype i n 

followed by an 1 * ’ 

sign wi 

1 1 

sum may 

be accepted with 

a C/R or 

a 


<X * change sign) 

cause the sum to replace typein, 
new VALUE typed. 


This 
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1 VhL'I£ 

2 PM IN 

3 PMhX 

4 MESSAUt 


5 I F"LhG 


Var i ab 1 « <1 0 i aa l > , 

Minimum bound Tor VmLUE * input n U> , 

Mix i mum bound for VmLUE < input r«al>, 

ASCII string < Input). 

wn ASCII chirtcicr tiring to ba displayed for tha usa» . 

Tha MESSAGE is small chjrac»*rs si laft * id-* of icr««n 
uniats ASCII control chtncttrt Si * in MESSAGE tiring, 
i,a,, JX&000 , flVOOO , 3C , 9f . 9E chtncitri Will Chang* 

MESSAGE si:a and position, 

< i np'it i nt agar > , 

If positlua, clasi prior MESSAGE***) Lafora displaying 
MESSAGE. 

Elsa add this HESSmuE to any previous M£>ShG£<*), 


ERROR CONDITIONS 

nil arr or* are proparly handlad int ai'na I ly . If nuiabars sr* out of r anga os 
input, TTY bail rings and a mat saga to tha user will appaar re^u^sting a 
naw input, 
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fiGET 

0'»ET is i FCIRTRhN callable routine designed to 
operator on the hi. f jcr«»n. 


w *uok Qir/ 1 • *. 

display a message ‘fir the 


Routine will display the minimum and ««< i iduio bound* and currant value for 
an octal variable. mccept the currant value with a C/R, or > r.aw typain 
value from tha opantor. 


If an image is being displayed prior to calling OGET a subimag* link is 
f ormad to anabla tha image to r t»ain on the screen with iii«jii^a, bounds and 
currant value display, th.s link is reaoved on return from t t outina, 


If operator types in a new value, it is compared to tha upper and lower 
bound. If within bounds , new value is returned to the calling program. If 
out of bounds, oar .able is jet to the value of the crossed boundary, the 
TTY bell is rung, and the following error message is displayed for the 
oper itvr ! 

LIMIT EXCEEDED, DEFAULT VrtLUE ASSUMED 
MIN«XXX,MmX«XXX> CURRFHT-XXX 


Simple math may be included in typein, howi'mr it must be in polish string 
f or eat . 

i.e. no < ) and solution is from left to r ight, 

Characters which may be included in type string are: 

Symbol Function 

♦ Hdd 

- Subtract 

* Multiply 

/ Divide 

■ Sum 

X Change sign 


Other characters cause the 1 TY boll to ring arid the following error mescage 
is displayed for the operator: 


ERROR : ILLEGAL CHmRhi.TER 


i.e. 40, + 40, equals 100, 

Typein followed by an 1 = ' sign will cause the sum to replace typein. This 
sum may be accepted with a C/R or a new VfcLUE typed. 
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ChLLIMi, SEQUENCE 

Call OCET (OVALuE , OMIN, OMAX, "MESSAGE* , l FLAG > 

ARGUMENTS 


‘"winal pact n 
w > '■*>< WA un 


J QVmUJE 

2 OMIN 

3 OMAX 

4 MESSAGE 


5 I FLAG 


Variable < input , output detail. 

Minimum bound for OVALUC < inpul octal), 

Maximum bound for OVAL UE < input octal). 

ASCII string (Input), 

An ASCII character string to be displayed for tha uttr , 
The MESSAGE is small characters at l«ft side of icrttn 
unless ASCII control characters are in MESSAGE string, 
i .e , *:<3000,aV000,«C, »F,aE characters will change 

MESSAGE size and position. 

( i nput i nteger > , 

If positive, clear prior mlSSmGE<s) before displaying 
MESSAGE. Else add this MESSAGE to any previous 
MESSAGE'S), 


EPPOP CONDITIONS 

«11 errors are properly handled internally, if numbers are out of range as 
input, TTY bell rings and a message to the user will appear requesting a 
new input . 
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SG£T is a FORIRhN callable routine designed to i.i play a message for the 
operator >>n the HOT icr«*n. and accapt a typed string fr in tha oparator. 

I 

If an image is being displayed prior to calling SGET a subimage link is 
formed to an ab 1 a tha image to ramtin on tha screen with K.es*»ge, bound; and 
currant, value display, this link is removed on raturn from subroutina, 


ChLL SEQUENCE 


ChUL SGET 4 ARRAY, MESSmGE , ► FL AG > 


ARGUMENT i 


1 hRRAY hMOS character array toutputr. 

Minimum Length of array should ba da tar minad as folio -.st 
(use a multipla of 8 for madmum char actors ) 

If (maximum charactars .EO. 3 > length » 1 

a 1 $ a 

Length * ma imum characters / 5 <• 1 . 

If typad string is .GT, Z (ini word in array is pointar 
to charactars in form! -numbar words (H addrass of 
str ing , 

i MESSAGE ASCII string < input). 

An ASCII charactar string to ba displayed for tha usar. 
Tha MESSAGE is si.nl l charactars at laft sida of scraan 
unlass ASCII control charactars ara 4»i MESSAGE string, 
i . e . , exeOOO , SY000 , OC , 8F , 8E charactars will changa 
MESSAGE siza and position. 

3 KFLaG Optional (input intagar). 

Maximum numbar of charactars to accapt from oparator, 
(range ■ t 1-132> 

If KFLAG argumant is nag. prior MESShGE(s> is not claarad. 
If KFLhG argumant is omitted, prior MESSAGEts) is c.learad, 
and 10 sat as maximum output charactars, 

ERROR CONDITIONS 

All arrors <re proper ly handled internally. 
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YESNO i* a PuRTRAN function designed to display • h«dif« for the operator 
on the AGT screen an< 3 accept the fir**. character of operator type in string 
»* a YEi/HO answer, 
l.o. Yes...”Y“ “CxR", or "C/R" . 

Mo. . . anything else, 

Calling program can branch on the i ♦turned function value. 

If an i mage ix being displayed prior to calling YESNO a sobimage link is 
f ar mad to enable the image to remain on th« tcraan with me j sage display, 
this link ix removed on return from subroutine , 

CALL I MG SEQUENCE 

IP'. VESNO< •MESSAGE" .NPLhC>> 10.20 or Ll.L "YESNO < "MESShGE" , MF l AG > ) 

ARGUMENTS 

1. MESShGE hSL 1 I string < input*. 

An ASCI 1 charactar xti ing to La displayed for the 
user, Th* MESSAGE it small Charactar* at laft aid# 
of screen unless ASCII control charactar* are in 
MESSAGE string, 

i a., axaooo . syooo , ac ar.aE charactar* will 
chang a MESSAGE size and position. 

2. MPLAG < input integer), 

If positive. clear prior MESSAGE* x> bafora 
displaying MESSAGE. Elx* add this MESShGE to any 
prtoious MESShGE 1 x). 

example 
logical ycsno 
external yesno 

IP < YESNO* “IS EVERYTHING OK",NPLAG> > 10.20 

If tha typad response ix "V C- R" or "C.R", th* function value will b* 
trua, and statement 10 will b* executed. Otherwise xtatamant 20 will result 
from the false function value, 
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LOGIChL ycsmo page is 

Ival ■ aval >00 0F POOH QUALITY 

IMIN > PM l N > -9999 0 * 

IMAX « RMmX > 9999.0 

IOCThL ■ 1 0 1 B ; MINOCThL ■ I01B; MhXOCThL - 2i3.’b 
PUT UP MESSAGE ON SCREEN «NO hCCEPT T , REIN IN RANGE FMIN TO PMnX 

10 CALL PGETCRVhL ,RNIN. RMAX, " 3CTH1S MESSAGE MILL hFPEhP hS 3 
1 SMALL CHmPnCTERS, a T -iCiFURRER LEFT OF SCREEN, S 
IsEJOFTYRE IN A REAL VALUE i iS", t> 

C ADD ANOTHER MESSnGE, hCCEPT INTEGER TVPC IN 

CALL I GET CIVAL, IMIN, IMhX, " 3S3C3FTHIS MESSAGE IS ADDED ALSO , 9 
ITMIt time WE APE CALL INC The Integer ROUT INC, IF FRACTIONt KOTO 
IhRE TYPED IN, ONLY THE INI EGER PORTION IS RETURNED . iE SCsF 3 
I INTEGER VhLUE - i S$". -I > 

C hDD hNOTHEP MESSAGE 

ChLL IGET UVAL, IMIM ( IMAX, " 3 S3C6F SIMPLE Mm I (I Mh i 6t INCLUDED 3 
1 1 N TYPEIN.aCSFHOWEVER IT MUST BE IN POLISH STRING FORMAT , S 
1I.E, NO < ) hND SOLUTION IS FROM LEFT TO RIGHT. 3 
13C3F ONLY ♦ - * / X > ARE ALLOWED . 3CSF 3 

1 mNY OTHER CHARACTERS CAUSE THE TT 1 BELL 10 PING AND m NICm 3 
1 INPUT REQUESTED . *C«F 3 

1IE. 100,-23*23-30 +30 EQUALS 100«CSF 3 

10RtC*F« 

1 100/2. 5*60 IS ALSO 1003C3F 9 

1UR3C9F J 

1 100 ♦ SOX ♦ 30 EQUALS 100 <X * CHANGE SIGN>9 

I.3C-3F TYRE IN FOLLOWED BY AN ' >• SIGN WILL CaUSE THE SUM T 03 
19C9FPERLACE TYREIN, THIS SUM MAY BE ACCEPTED WITH A C^ P 3 
1SC3F0R A NEW VALUE MAY BE TYPED IN. 3 
1 3E 3C9F 1 NTEGER VALUE » ! 3S ", -1) 

C PLACE ANSWER IN RVAL A - ? CURRENT VALUE 
RVAL » I VAL 

C ASK USER FOR A DmTa PaCK-VOLUME 

ChLL OGET (IOCThL, MINOCTmL. MAXOCTAL, "9S3C3F9 
I TYPE IN PACK -VOLUME FOP DATh,3 
1 9E9C -3FPVV * ! " , - 1 > 

C DO NOT CLEAR SCREEN, ASK IF OPERhiOR WhNTS TO REPEA r. 

IF (YESNO <" 3E3C3F WANT TO GO THRU AGAIN ? I " , -1> ) 10,20 
C C/R OP Y C/R RETURN TO 10, ANYTHING ELSE RETURNS FROM PROGRAM 

20 CALL FXIT 
END 


EcJin 


TN 7S-12? 


- 11 - 


edin 

___ S UTIL 

Progi emmer ' * reference manual 


ML1 »T 






MLIST is 1 col 1 •* c t ion of FORTRAN callable subroutine* which allow 
convenient teem to the Adage monitor lifting device rOMt in**. 


Cnl.LlNu SEQUENCE 


Select and initialize lifting device, 

CALL I ML 1ST ( ICODE » 
or 

CALI I NL 1ST < ICQC'E , ' NaME ' , 1PVV) 

Output an AMOS string with 0 to NCR carriage rat urn* pi ior to string, 
CALL FhMOS CAA'.NCR) 

Output dot*. 

CALL 10 ATE (data) 

Output an wSC 1 I string (listing device 1 oi . y v I Chut. * 1 ) > . 

CALL FhSCI Iv-BB") 

Tab to specified column af listing device, 

CALL TABTO (ICOL) 

Output a carriage return and line feed. 

CALL 03TCR 

Eject current pa*e. 

CALL EJECT 

Uriel ect listing device. 

CALL UNSELECT 

Output decimal integer. 

CALL I2DEC < 1 VALUE , IDIml T*> 

Output floating point number, 

CALL R2DEC (VALUE, I TOTAL, IFRhC) 

After initial call to INLIST, the following p ar ament ers . 
may be accessed at s (use FORTRAN equivalence statement), 

70007* = current character position in line 
70010* c current line count, 

70011* * maximum iines/page for selected device. 

70012* ■* busy flag (negative if busy). 
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hRCUMENTS 


hR»;umlnt 

TYPE 

FUNCTION 

I CODE 

input integer 

Desired listing device. 
0 - TTY 



1 * SCREEN 

2 - PPL 

3 * aTEXT disk file 



NOTE If ICOOE ■ 3 „ and arguments NAME 
and PVV ere omitted, file is output to 
PVV 101, with name DBUCL. 

If more than 1 argument to INLIST all ere 
requ i r ed . 

Name 

input AMOS string 

If ICODE » 3, the output disk file name 
is set * NhME 

pvv 

i nput octal 

Output pack -volume for disk file 

Ah 

input AMOS sir inf 

String f Of' output. 

NCR 

input int e s er 

Number of carriage returns to output 
pr 1 or to ha . 

DATE 

input dll* 

Address of a re 11 containing a date in 
AMOS format, usually IDATE or IFILEDhTE 

BE 

input hSCII string 

String for output, 

ICOL 

input integer 

Desired character column. 

I VALUE 

input integer 

Integer value to be output. 

I L 1 1 C I T S 

integer input 

Total digits, range * t 10, 

It positive ...right justify. 


If negative , ..left justify. 

Round off will occur if value exceeds 
number of dijits specified. 
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ARGUMENT 


VALUE 


t i nput r «a l ) 


function 

R**al value to be output. 

If VhLUE e'COuds 336 . 37rt , 636, 
'F' format is used. 


I TOTwl. 


(integer input) 


IFPhC 


< i nput i nteger ) 


Total digits, ringe •» tlO, 

If positive, right justify ( integer 
part ) . 

If negitive, left justify (integer 
par t > . 

Round off will occur if value exceeds 
number of digits specified. 

fractional digits, 

Round off will occur if value eceeds 
number of digits specified, 


ERCOft CONDITIONS 


If ICODE is invalid or incorrect number of arguments default is to TTY, 
ASCII output is legal to device 1 only. 


• Vl'Ai ^ 
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PROGRAM TEST I 

REAL IN8UFF< 100>,ObUFFl( luO < . OBUFf 2< 100 ) 

A ■ B ■ to ,8 

C GET DESIREE* LISTING DEVICE FROM USER 
IDEVICE « I 

CALL I GET (IDEVICE, 0, J," OUTPUT DEVICE OPTIONS ! %C4F9 

10 • TTY*C4F9 

11 • SCPEEN$C®F J 

12 - PPL9C&F* 

13 - DISK FlLEaCaFa 

I TYPE IN DESIRED OPTION s " , 1 ) 

c initialize iNBurr 

DO 10 J » 1 , 100 
INBUFFO) « A 
A ■ A ♦ B 

IP < A . EQ . 250.0 > B » -10 .0 
IP (A . EQ . -230 .0 > B - 10 .0 
10 CONTINUE 
C CLEAR OBUFF R2 

DO 1 1 J - t , 100 

OBUrF 1 ( J ) « 0BUFF2 ( J > « 0.0 

II CONTINUE 

C PLACE SAMPLES IN OBUFFl AT 2 TIMES SAMPLE RATE OF INBUFF 
CALL NTRPOLATE < INBUFFC1 > . ODUFF1 < 1 > 30,0.5) 
c plhCE Samples ri obuff 2 at 1/2 sample rate of inbuff 

CALL NTRPOLATE < INBUFF < 1 ) , 0BU r F2< 1 ) . 50 , 2.0 > 

C INITIALIZE LISTING DEVICE 
CALL INLIST (IDEVICE) 

C OUTPUT HEADEP FOR LISTING 

CALL FAMOS ('BUFFER LISTING OF INTERPOLATION RESULTS -,0) 
CALL FAMOS <’ INBUFF', 2) 

CALL TABTO (20) 

CALL FAMOS (' OBUFFl', 0) 

CALL TABTO (40) 

CALL FAMOS < ' 0EUFF2 ‘ ,0) 

CALL OSTCP 

C LIST CONTENTS OF BUFFERS 
DO 20 J * 1 . 50 
CALL P2DEC ( INBUFF ( J) , 8, 3) 

CALL TABTO (20) 

CALL R2DEC (OBUFFl (J) , 3, 3) 

CALL TABTO (40) 

CALL R2DEC (QBUFF2( J), 8, 3) 

CALL 03TCR 
20 CONTINUE 

C EJECT PAGE, AND UNSELECT DEVICE 
CALL EJECT 
CALL UNSELECT 
RETURN 
END 


OKrCIJMLp.. . 

" **« murf 
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I DELAY is •» POPTPhN til l <bl< Subroutine which cini«< a time de t ay . 


Cmllinc sequence 


Call IDELhY (ICOUNTj 


ARGUMENTS 

ICOUNT (input integer,) Number of milliseconds of desired delay, 

rango 1 to 40 93. 


EPPOP CONI) IT IONS 

Out ot range number defaults to a one second delay. 


R EE1 L 

PBELL is a FOR T RAN callable routine to ring the TTY bell. 

CALLING SEQUENCE 


CALL PBELL 


ERROR CONDITION'S 
None 


0l UGft lAT n 
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PC LIN 


PDLIN is a FORTPhN callable routine designed to si low frt* format input 
from the hNK/TTY. 

PDLIN will unconditionally load the LaBEL segment into monitor overlay 
buffer 1 (unl.jj allraady loadad>, 

Typain is storad in Global array 1 PL 1 ST 1 as laft justified 1 PhI>>< P 1 filled 
AMOS characters. 


Typain is also storad in Global array ‘ UL i ST * , right .just if i ad, ona 
char act ar par word. 

Global *<ariabla 1 N I C H 1 contains the nuabar of typad characters. 

Global uariobl* 1 MXK AR 1 controls tha maximum number of typed charactars 
allowed (range 1-132) . 


Global var iibla * PftDKR * (normally 40, (*pa>.«)) is used as pad character for 
laft justified strings. 

If *PADKP' is changed by calling program it should be restored to 40,. 

Global flag ‘ NODSP ' . if negative assumes external display of monitor label 
buffer (ftDBUFP). 

C ‘trior appears on screen 2 spaces to the right of last output to label 
buffer. i,e. a write to unit 23 or SUTIL routine ML I ST. 


CALL PDLIN 


Calling Sequence 


Error Conditions 


ORIGIN AL PAfc «, 

0F **>« wSStf 


After number of typed characters . EQ. ' MXK MR 1 no further characters are 
accept ed , 


TN 76-123 


17 - 


cfoJin 

f UTIL 

Progr antiwar ' * r*f«r*nca hinutl 


L hMCUhG£ 

&DEPT vrtdaga inachJna langutga) 

SUBRO UT 1 HI .LEMiiTH 

ftpprn- 1 m »t i»ly 15u0 word*. 

EQUIPME NT 

rtCT-10 through 4GT-340 
muth opship 

0, HmRPLR. COT(j 


TN 76-123 


- 13 - 


